home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Enter 2000 February / enter2_1.iso / REKLAMA / Pakiet firmy InsERT / data1.cab / _Wydruki_RpWzorce / Insert.bas < prev    next >
BASIC Source File  |  1999-10-14  |  3KB  |  75 lines
  1. Attribute VB_Name = "Module1"
  2. Function AnythingToCurrency(v As Variant) As Currency
  3.  
  4.         Dim strA As String
  5.         strA = CStr(v)
  6.         
  7.         Dim strB As String
  8.         strB = ""
  9.  
  10.         Dim l As Integer
  11.         l = Len(strA)
  12.         
  13.         For i = 1 To l
  14.             If (Mid(strA, i, 1) <> " ") Then
  15.                 strB = strB + Mid(strA, i, 1)
  16.             End If
  17.         Next i
  18.         
  19.         
  20.         strA = strB
  21.         
  22.         AnythingToCurrency = Val(strA)
  23.  
  24. End Function
  25.  
  26. Function fff( curKwota as currency, byval nNominalLiczba as integer, byval curNominal as currency ) As Integer
  27.     dim nLiczba as Integer
  28.     nLiczba = curKwota / curNominal
  29.     curKwota = curKwota - curNominal*nLiczba
  30.     
  31.     fff = nNominalLiczba + nLiczba
  32. End Function
  33.  
  34.  
  35.  
  36. Function NominalFromCurrency( curKwota as currency, byval curNominal as currency ) As Integer
  37.     dim nLiczba as Integer
  38.     nLiczba = curKwota / curNominal
  39.     curKwota = curKwota - curNominal*nLiczba
  40.     
  41.     NominalFromCurrency = nLiczba
  42. End Function
  43.  
  44.  
  45.  
  46. 'Nazwa konta dla podanego numeru
  47. Declare Function RetNazwaFromNumer Lib "InsRpFun.dll" (ByVal Numer As String) As String
  48.  
  49. 'Nazwa kwoty dla podanego jej identyfikatora
  50. Declare Function RetNazwaKwoty Lib "InsRpFun.dll" (ByVal lKwota As Long) As String
  51.  
  52. 'Nazwa kolumny w ksiedze dla podanego jej identyfikatora
  53. Declare Function RetNazwaKolumny Lib "InsRpFun.dll" (ByVal lKolumna As Long) As String
  54.  
  55. 'Symbol kontrahenta w/g id
  56. Declare Function RetKontrahentSymbol Lib "InsRpFun.dll" (ByVal id As Long) As String
  57.  
  58. 'przelicznik jednostki miary dla towaru
  59. Declare Function RetTowarPrzelicznikJednostkiMiary Lib "InsRpFun.dll" (ByVal id As Long, ByVal JedM As String) As Currency
  60.  
  61. 'obciecie czesci ulamkowej z currency oraz do 1, 2 i 3 miejsc po przecinku
  62. Declare Function RetCurrencyFloor Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  63. Declare Function RetCurrencyFloor1 Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  64. Declare Function RetCurrencyFloor2 Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  65. Declare Function RetCurrencyFloor3 Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  66.  
  67. 'zaokraglenie currency do 0, 2 i dowolnej liczby miejsc po przecinku
  68. Declare Function RetCurrencyRound0 Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  69. Declare Function RetCurrencyRound2 Lib "InsRpFun.dll" (byval lKwota As currency) As currency
  70. Declare Function RetCurrencyRound Lib "InsRpFun.dll" (byval lKwota As currency, byval nPlaces As long) As currency
  71.  
  72. 'funkcje sluzace do konwersji kodow kreskowych
  73. Declare Function BCAsciiToEAN_InsRp Lib "BCTools.dll" (ByVal strAscii As String) As String
  74. Declare Function BCAsciiToCode39_InsRp Lib "BCTools.dll" (ByVal strAscii As String) As String
  75.